Zurück in DatenbankentwicklungWeiter in DatenbankentwicklungEin Dateidialog mit einem ActiveX-Steuerelement ?

Unter Visual Basic können Sie Code eigenen oder fremden Projekten zur Verfügung stellen, indem Sie ihn in Klassenmodulen speichern. Ein Klassenmodul ist eine Blackbox, deren Funktionen genutzt werden können, ohne dass Codeinterna bekannt sein müssen. Ein Programmierer kann ein Klassenmodul in eine DLL-Datei verpacken, auf die andere Entwickler zugreifen können. Wir zeigen im folgenden Beispiel, wie der Access-Programmierer ActiveX-Steuerelemente, eine wichtige Klasse von DLL's, nutzen kann.

Benutzersicht

Der folgende Bildschirmausschnitt enthält einen Dateidialog. Der Anwender klickt auf die Schaltfläche Teilnehmer importieren und wählt eines der angeboten Tabellenblätter:


Entwicklersicht

a) Dialogentwurf

Die Programmiererin integriert das ActiveX-Steuerelement "Dateidialog" wie folgt:

  1. Sie wählt das Formular, aus dem der Dateidialog aufgerufen werden soll
  2. Sie wählt das gewünschte ActiveX-Steuerelement (»Einfügen/ActiveX-Steuerelement...)
  3. Sie passt nötigenfalls Eigenschaften des ActiveX-Steuerelements an (»Alt/Eingabetaste).

Die folgenden Bildschirmausschnitte konkretisieren diese drei Schritte:

  1. Formular FrmTestauswahl in der Entwurfsicht öffnen
  2. Steuerelement Microsoft Common Dialog Control wählen
  3. Defaultwert der Steuerelement-Eigenschaft Name auf "Dateidialog" setzen.

b) Code

Der Wert bestimmter Steuerelement-Eigenschaften kann erst zur Laufzeit gesetzt werden. Wir tragen deshalb diese Werte nicht in die Eigenschaftenliste ein, sondern setzen sie im Programmcode:

'~~~ Tabellenblatt mit Teilnehmern des m a r k i e r t e n Tests importieren
Private Sub BtnTeilnehmerImportieren_Click()
  ...

  '--- Ausgewählte Eigenschaften des Steuerelements Dateidialog setzen
  With Dateidialog
    .DialogTitle = "Wählen Sie das Tabellenblatt mit den Teilnehmern, die Sie registrieren möchten"
    .InitDir = pub_Startverzeichnis
    .Filter = "Tabellenblätter (*.xls)|*.xls"
    .ShowOpen 'Dialogtyp Open einblenden
    Pfad = .FileName
  End With
  ...

VB.NET